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PASSREAD.CHAR Read a character 16-Sep-1984 9}: 


3:40 AX-11 BLi 
14-Sep-1 1: 


-32 V4.0-74 Page f 


1:5 ss- 
2:51:46 PASRTL.SR CIPASREACHA. B32;1 (1 


1 

| 
; 1 0001 9 MODULE PASSREAD_CHAR ( tyITKE "Read a character’ ; 
: ¢ Bong SDENT = '1-002' ! File. PASREACHA.B32 Edit: $8L1002 | : 
> ie a) 
: § Boe ' “RRR NE RN INET! GENIC NER ESE : 
; '® ‘ : 
5 8 vJ08 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 B 3 
: 9 0009 1 !* DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. * ; 
; 19 boty : - ALL RIGHTS RESERVED. * : 
5 ‘ ® : 
; i Berg 1 !e hal g fe hcrhe i FURNISHED UNDER A LICENSE AND MAY BE USED AND coriee * : 
fy 0015 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * : 
; % 0014 1 !* IN CLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS sor TY ARE OR ANY OTHER * : 
re 0015 1 '* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * ; 
; 0016 1 !* QTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * ; 
3 eete ! x TRANSFERRED. * 3 
; ! * 3 
: 19 0019 1 !* THE INFORMATION IN THIS SOFTWARE 1S SUBJECT TO CHANGE WITHOUT NOTICE * : 
H 20 0020 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * : 
; $3 itd : is CORPORATION. * 3 
3 ! * ; 
:  @ $058 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * ‘ 
; 24 0024 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * : 
> 2 0025 1 !* * : 
; «© 0026 1 !* * : 
: sf 4 i : ‘ached alacant aaa teiieeittaiae : 
; 0029 1 : 
: 0030 1 !++ : 
aes 0031 1! FACILITY: Pascal Language Support 3 
Be O06 1/ 3 
0 me 0033 1 ! ABSTRACT: 3 
; «634 0034 1! 3 
; 0035 1! This module contains procedures to read a character from a 3 
; 0036 1! textfile and a string. 3 
; a 0037 1! 3 
3 3 sit : ENVIRONMENT: User mode - AST reentrant : 
: re Ooty ’ AUTHOR: Steven B. Lionel, CREATION DATE: 1-April-1981 3 
; 62 004g | i MODIFIED BY: : 
: 43 004 13 e 
; (44 0044 1 | 1-001 - Original. SBL 1-April-1981 | 
$ 45 0045 1! 1-002 - Use PASSSEND READ. SBL 26-May-1982 
; 646 0046 1 i- 
: 67 0047 1 


N 2 
PASSREAD_CHAR Read a character 16-Sep-1984 01:53:40 AX-11 Bliss-32 V4.0-74 Page 2 
A805 = Declarations 1 30071382 93329208 PASRTL SREIPASREACHA B92; 1 (2) 
5 4 poe ! RSBTTL ‘Declarations’ 
: 51 0050 1 | PROLOGUE DEFINITIONS: | 
: 3 bos) 1: | 
: 2¢ 0034 ! REQUIRE ‘RTLIN:PASPROLOG'; ! Externals, linkages, PSECTs, structures | 
; $118 1! 
57 011 1 ! TABLE OF CONTENTS: 
; S38 0120 1! 
; 39 0121 1 
3 60 4 ¢ 1 
; 66) 1 1 PASSREAD_CHAR ' Read from textfile 
; 62 0124 1 PASSREADV_CHAR; i Read from string 
3 6 0125 1 
3 64 0126 1! 
; 65 0127 1 ! MACROS: 
3 66 0128 1: 
3 67 Ht 1! NONE 
5 68 0130 1! 
3 69 0131 1 =! EQUATED SYMBOLS: 
3 70 0136 1! 
3 71 0133 1! NONE 
3 72 0134 1! 
3 73 0135 1 ! FIELDS: 
3 74 0136 1! 
i 7. 0137 1! NONE 
; 76 0138 1! 
: 77 0139 1 ! OWN STORAGE: 
3 78 0140 1! 
; 79 0141 1! NONE 
; 80 0142 1! 


FORWARD ROUTINE 
| 
| 


3 
a character 16-Sep-1984 91:33:60 AX-11 Ot rete ie V 
READ_CHAR = Read a character from textfile 14-Sep-1984 12:51:46 PASRTL.SRC JPASREACHA.B32; 1 
f 


ZSBTTL ‘PASSREAD_CHAR = Read a character 
GLOBAL ROUTINE PASSPEAD_CHAR ( ‘ 
PFV: REF SPASSPFV_FILE_VARIABLE, ! File variable 

OR ! Error unwind address 


UEWwN— 


WN —OODNOUESWN —OOONAUEWN—-O0OON 
fowlelelelelelealalelaleleleleleleleleleleleleleleleleleleleleleleleleloleolelolelelealololel «lolol olelololololal—\o)oMa:> :] 


ec ee ee el cl el eel el el cel eel eel cel elt eel el cel el el el eel eel cl cel alt el eel cel eel el eel cecal cl elt cl el el cl cal ell el cel cle cl cect allt cel cel cael lls casas cells cals sails 


RIPPIN ININININPININPININIAIY 9 nn ni i dd td 3 8 


Be Be See Be Be Se Se Be Se Se Be Ge Se Be Se Se Ge Se Ge Be Ge Be Se SH Se Se Ge Ss Ge Ge Se Se Ge oe SH He Se BSF Se os OH Os Hes oe OH Oe OH Oe we we ee Se ee ee 


ehabababadabadbabababat hebebabababab ebubeabmabbubabebabababababubabe ab abal 


ONO 
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FUNCTIONAL DESCRIPTION: 


This function reads a single character from the specified textfile 
and returns that character as its function value. 


CALLING SEQUENCE: 
char.wc.v = PASSREAD_CHAR (PFV.mr.r C, ERROR.j.rJ) 
' FORMAL PARAMETERS: 


PFV - The Pascal File Variable (PFV) passed ¥ reference. 
The structure of the PFV is defined in PASPFV.REQ. 


ERROR - Optional. If specified, the address to unwind to 


in case of an error. 

IMPLICIT INPUTS: 

NONE 
IMPLICIT OUTPUTS: 

NONE 
! ROUTINE VALUE: 
The character read from the file 
i SIDE EFFECTS: 

If the file is the standard file INPUT or OUTPUT, it is implicitly opened. 
SIGNALLED ERRORS: 


BEGIN 

LOCAL 
CHAR_READ : Character read 
FCB: "REF $PAS$FCB_CONTROL_BLOCK,! File Control block 
PFV_ADDR: VOLATILE, ! Enable argument 
UNWIND_ACT: VOLATILE, ! Enable argument 
ERROR_ADDR: VOLATILE; ! Enable argument 

BUILTIN 
ACTUALCOUNT; ! Count of arguments 


3 
PASSREAD_ CHAR h 16-Sep-1984 
1-002,” i é-sen-19 9 


aracter 
CHAR = Read a character from textfile 14-Sep-1984 


ENABLE 
PASSSIO_HANDLER (PFV_ADDR, UNWIND_ACT, ERROR_ADDR); ! Enable error handler 


:53:40  VAXe11 Bliss-32 v4.0-74 7 4 
27228 EPASATL SREIPASREACHA. B82; 1 ~~ <@ 


»@ 
mao 
oo 


A 


Get ERROR parameter, if present. 
IF ACTUALCOUNT () GEQU 2 

ERROR_ADDR = .ERROR; ! Set unwind address 
PFV_ADDR = PFV CPFV$R_PFV); ! Set PFV address 
"validate PFV and get PFV. 
PASSSVALIDATE_PFV (PFV CPFVS$R_PFV]; FCB); 
set unwind action to unlock file. 
UNWIND_ACT = PASS$K_UNWIND_UNLOCK; 
Do common initialization. 
PASSSINIT_READ (PFV CPFV$R_PFV], FCB CFCBSR_FCBJ; FCB); 
Get the character to return and advance the record pointer. | 
a es CFCBSA_RECORD_CUR] GEQA .FCB CFCBSA_RECORD_ENDJ 


BEGIN 

CHAR_READ = &C° '; 

PFV CPFV$V_VALID] = 0; é 
ay CFCBSV_LAZY] = 1; ! Start lookahead for next Line 


ELSE 
CHAR_READ = CHS$RCHAR_A (FCB CFCBSA_RECORD_CUR]); 


'¢ 
Do end-of-READ processing. 
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7 | 
8 PASSSEND_READ (PFV CPFVSR_PFVJ, FCB CFCBSR_FCB)); 
° 3 RETURN .CHAR_READ; ! Return character 

2 2 END; ! End of routine PASSREAD_CHAR 
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-TITLE PASS$READ_CHAR Read a character 


dD 3 
PASSREAD_CHAR Read a character 16-Sep-1 
1-002 PASSREAD_CHAR = Read a character from textfile 14-Sep-1 


ovo 


4 01:53:40‘ YAK=11. BLiss-32_v4.0-7 P 
Be 12:51:46 EPASRTLSRESPASREACHA.B82; 1 a0 35 


IDENT \1-002\ 


.EXTRN PASSREAD CHAR, PASSREADV_CHAR 
"EXTRN PAS$$1O RAN DLER 


-PSECT PASSCODE ,nownt, SHR, PIC,2 


OOFC 00000 .ENTRY PASSREAD_CHAR, Save R2,R3,R4,R5,R6,R7 3 0144 | 

5E 08 C2 90002 SUBL2 : 

7E pA 0000 CLRL ERROR_ADDR ; 0188 | 

04 AE 7C 00007 CLRQ  -UNWINB_ACT : | 

6D 0040 CF DE OOO0A MOVAL 4$, (FP) : 

02 6C 91 GOOOF CMPB. =s-« AP), #2 ; 0207) 

04 1F 00012 BLSSU 1 : 

6E 08 AC DO 00014 OVL ERROR, ERROR_ADDR : 0209 | 

56 04 AC DO 00018 1$ MOVL FV : 0211 

000000006 00 16 0001C JSB PASSSVAL DATE PFV : 0217 

04 AE 01 b0 00022 MOVL #1, D_ACT ; 0223 | 

000000006 00 16 00026 JSB PA ésSInit READ : 0229 | 

FO A? EC A? D1 9000 CMPL =20(FCB), = TOE CB) 3 0235 | 
OD 1F 00031 BLSSU 23 : 

50 20 dO 00033 MOVL #32, CHAR_READ ; 0238 

06 Ab 01 8A 00036 BICB2 #1, 6(R6) 3 0239 | 

FD A? 04 88 0003A BISB2 #4, -3(FCB) 3 0240 | 

07 11 OO03E BRB $ : 0235 

50 EC B7? 9A 00040 28: MOVZBL @-20(FCB), CHAR_READ ; 0243 | 

EC AZ? D6 00044 INCL  =20(FCB) ; 

000000006 00 16 00047 3$: JSB PAS$S$END_READ : 0249 

04 0004D RET : 0253, 

0000 OO004E 4$: «WORD Save nothing ; 0188 

50 08 AC DO 00050 MOVL  8(AP), RO : 

50 04 Ad DO 00054 MOVL 4(RO); RO ; 

FL AO 9F 00058 PUSHAB ERROR_ADDR : 

F8 AO 9F 00058 PUSHAB UNwIND ACT : | 

FC AO 9F 0005E PUSHAB PFV_ADBR : 

03 0D 00061 PUSHL #3 : | 

5E DD 00063 PUSHL SP : | 
7E 04 AC 7D 00065 MOVQ 4(AP), -(SP) : 

000000006 00 03 FB 00069 CALLS #3, PAS$$10. HANDLER ; 

04 00070 RET ; 


; Routine Size: 113 bytes, Routine Base: _PASS$CODE + 0000 


3; «6193 025 
3 025 


4 1 | 
5 1 !<BLF/PAGE> | 


3 | 

PASSREAD_CHAR a character 1-se 1984 01:53:40 AX-11 Bliss-32 V4.0-74 Page 6. 
att READV_CHAR = Read character from string 14-Sep-19 4 eS ev EPASRTL-SRe PASREACHA. B92: 1 - (4). 

136 ZSBTTL "PASSREADV_CHAR = Read character from string’ 

19 GLOBAL ROUTINE PASSREADV_CHAR ( 

198 STRING: REF BLOCR C, BYTE], ! String descriptor 

128 ‘ ! Error unwind address 

01 

8g 144 

37 ' FUNCTIONAL DESCRIPTION: 

05 This function reads a character from the specified string 

06 and returns it as the function value. 


CALLING SEQUENCE: | 
Character.wbu.v = PASSREADV_CHAR (STRING.mt.ds C, ERROR.ja.rJ) | 
FORMAL PARAMETERS: | 
STRING - The string to read from, passed as a class S | 
(assumed) descriptor. The length and pointer 

are updated to reflect the unread string. 


ERROR - Optional. If specified, the address to unwind to 
in case of an error. 


IMPLICIT INPUTS: | 
NONE | 
IMPLICIT OUTPUTS: | 
NONE 
ROUTINE VALUE: 
The value of the character read. 
SIDE EFFECTS: 
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NONE 

: i SIGNALLED ERRORS: 

9 99 NONE 

0 00 

1 01 — 

i 

0 BEGIN 

4 04 

5 05 LOCAL f : 
46 06 PFV: SPASSPFV_FILE_VARIABLE, ' Pascal File Variable 
47 07 R T, ' Result value 
48 08 ARG_LIST: VECTOR (C2, LONG], ' Argument List 
49 09 PFV_ADDR: VOLATILE, ' Enable argument 
29 a9 ERROR_ADDR: VOLATILE; ! Enable argument 
52 0312 BUILTIN 
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Read a character 16-Sep-1984 01:53:40 AX-11 Bliss-32 V4.0-74 P 7 PA 
PASSREADV_CHAR = Read character from string 1e-8ep-19 4 12:51:46 PASRTL.SRC IPASREACHA.B 2:1 “i (4) 1- 

13 ACTUAL COUNT; ! Count of arguments : 

15 ENABLE 

1 PASSSIO_HANDLER (PFV_ADDR, ERROR_ADDR); ! Enable error handler f 
ee 2 
8 19 Get ERROR parameter, if present. 3 
0321 ; 
0 3 IF ACTUALCOUNT () GEQU 2 : 
0 THEN : 
0395 § ERROR_ADDR = .ERROR; ! Set unwind address : 
0326 PFV_ADDR = PFV; ! Set PFV add | ; 
0337 § : os 2 address 

'¢ ; 

ti $ ' Set up ARG_LIST. ; 
5G Be 
0332 s ARG_LIST (0) = 1; ! One argument : 
0333 2 ARG_LIST (1) = PFV; ! PFV address : 
ae : 
0336 2 i Call PAS$$DO_READV to do the work, giving it the address of ‘ 
0337 2 ! PASSREAD_CHAR to call. 
gg 
Bey ; PASSSDC_READV (PFV, .STRING, ARG_LIST, PASSREAD_CHAR; RESULT); 
O28 § RETURN .RESULT; 
0344 1 END; ! End of routine PASSREADV_CHAR 


-EXTRN PASS$DO_READV 


005¢ 00000 .ENTRY PASSREADV_CHAR, Save R2,R3,R4,R6 ; 0257 | 
SE ye C2 00002 SUBL2 #28, : | 
7E D4 0000 CLRL — ERROR_ADDR > 0303. 
04 AE D4 00007 CLRL = PE V_ADD ; | 
6D 0030 CF DE OOO0A MOVAL 2$,~ (FP) | 
02 6C 91 0000F CMPB_ (AP), #2 : 0322. 
04 IF 90012 BLSSU 18 ; | 
6E 08 AC DO 00014 MOVL ERROR, ERROR_ADDR > 0324. 
04 AE 10 AE 96 00018 18: MOVAB PFV, PFV_ADDR : 0326 | 
08 AE 01 D0 0001D MOVL #1, ARG CIST : 0332 
OC AE 10 AE 9E 00021 MOVAB FV, ARG_LIST+4 > 0333 
54 FF65 «= CF «GE 00026 MOVAB PASS$READ-CHAR, R4 ; 0340. 
53 08 AE 9E 00028 MOVAB ARG_LIST? R3 ; | 
56 10 AE OE 000¢t MOVAB PFV? R6 ; 
52 04 AC 90 00033 MOVL STRING, R2 ; | 
000000006 00 16 000 JSB PAS$$D0_READV : 
04 00% RET > 0344 
00 4 ‘ 23: - WORD seve nothing ; 0303 
50 08 AC dO 0004 MOVL (AP), RO : 
50 04 AO DO 00044 MOVE  4(RO); RO : 


3 

PASSREAD_CHAR Read a charact 18- Sep-1984 01:53:40 AX-11 Bliss-32 V4.0-74 Page 8 
1-008 I PASSREADV oCHARS - © Read character from string 12286871382 93: 1:46 PASRTL. eR RCIP PASRE Ma 89251 (4) 

EO AO 9F 9k PUSHAB ERROR_ADDR $ 

E46 AQ YF 00048 PUSHAB PFV_ADDR : 

9 DD 0004 PUSHL #2 3 

E DD 0005 PUSHL SP : 

7E 04 as D 0005 MOVQ 4(AP), =(SP) : 

000000006 00 03 FB 00056 CALLS #3, PA S$$10 HANDLER 3 

04 0005D RET : 


; Routine Size: 94 bytes, Routine Base: _PASSCODE + 0071 


$ +H 0345 1 
; 86 0346 1 !<BLF/PAGE> 


H 3 
a charac 16-Sep-1984 01:53:40 AX-11 Bliss-32 V4.0 Page 


PASSREAD_CHAR Read 
1-002 PA ASSREADY. CHARS - = Read character from string 14-Sep-1984 12:51:46 PASRTL.SRC PASREACHA. 7 2;1 
288 0347 1 END ! End of module PASSREAD_CHAR 
586 0348 1 5 
90 0349 0 ELUDOM 
PSECT SUMMARY 
Name Bytes Attributes 
PASSCODE 207 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
Library Statistics 
otesaere Syabols «co--es- Pages Processing 
File Total Loaded Percent Mapped Time 
-$255$DUA28: fH Tet es AEG L32;1 9776 0 0 581 00:01.0 
~$255$DUA28: CPASRTL.OBJJPASLIB.L32;1 427 90 21 33 00:00.4 


COMMAND QUALIFIERS 
PL SSS PCHE CEOS? FEL. BNET EAL, SPU ERE SE DAUR TRALE AL EEL 15S PREREAC IA /ORIOOR IO PRENSA MSRC$:PASREACHA/UPDATE=(ENH$:PASREACHA 


; Size: 207 code + 0 data bytes 
; Run Time: 00:05.9 
; Elapsed Time: . se-0 


; Lines/CPU Min: 
; Lexemes/CPU-Min: 9464 
: pence Used: 65 pages 
; Compilation Complete 
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